(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      1546,         56]
NotebookOptionsPosition[      1238,         42]
NotebookOutlinePosition[      1595,         58]
CellTagsIndexPosition[      1552,         55]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"list", "=", 
   RowBox[{"RandomReal", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"100", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Dynamic", "[", 
  RowBox[{"Graphics", "@", 
   RowBox[{"Polygon", "[", 
    RowBox[{"list", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"list", "+", 
        RowBox[{"RotateLeft", "@", "list"}]}], ")"}], "/", "2"}]}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7706532437652807`*^9, 3.77065324377527*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"514fe288-8ec7-4b9b-9e70-75c00251d96f"]
},
WindowSize->{759, 697},
WindowMargins->{{Automatic, 380}, {24, Automatic}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 676, 20, 82, "Input",ExpressionUUID->"514fe288-8ec7-4b9b-9e70-75c00251d96f"]
}
]
*)

